	<%
		Const ForReading = 1, ForWriting = 2
		Dim fso, MyFile
		Dim VisitorNum, Since, FileData, FileName
					
		FileName=Server.MapPath("text/counter.txt")
		Set fso = CreateObject("Scripting.FileSystemObject")
		Set MyFile = fso.OpenTextFile(FileName, ForReading)
		FileData = Split(MyFile.ReadLine, ",")
		VisitorNum = FileData(0)
		Since = FileData(1)
		MyFile.Close
					
		Set MyFile = fso.OpenTextFile(FileName, ForWriting, True)
		MyFile.WriteLine FileData(0)+1 & "," & FileData(1)
		MyFile.Close
	%>		
